home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / util / misc / BangerVer14.lha / BangerVersionCopy.dopus < prev   
Encoding:
Text File  |  1995-09-06  |  2.0 KB  |  72 lines
  1. /* BangerVersionCopy.dopus kopiert mit DOpus Files und checkt die Versionen
  2.    Autor: Andre´ Trettin
  3. Codename: Banger
  4.    Begin: 30-Aug-95 00:00:15
  5.  Version: $VER: BangerVersionCopy.dopus 1.156 (05-Sep-95)
  6.    Usage: Man klick das zu kopierende File in einem Fenster an und definiert
  7.           vorher nocht die Quelle. Wobei die Files im Ziel-Fenster mit Banger-
  8.           Version bearbeitet worden sein müssen (jedenfalls, die die kopiert
  9.           werden sollen). Ansonsten funktioniert dieses ARexx-Script nicht
  10.           100%. Viel Spaß noch beim Kopieren der verschiedenen Versionen ! */
  11.  
  12. options results
  13. options failat 21
  14. address DOPUS.1
  15. busy on
  16. status 3
  17. QWin=result
  18. ZWin=1-QWin
  19. status 13 QWin
  20. QPath=result
  21. status 13 ZWin
  22. ZPath=result
  23. status 26 set 'Kopiere'
  24. getselectedfiles '°' QWin
  25. if result='' then do
  26.     busy off
  27.     exit
  28. end
  29. FileListe=result
  30. rest='a-z'
  31. CopyVar=0
  32. do until rest=''
  33.     parse value FileListe with FileName '°' rest
  34.     FileListe=rest
  35.     OldFile=ZPath||FileName
  36.     NewFile=QPath||FileName
  37.     address command 'BangerVersion 'NewFile' QUIET'
  38.     if exists(OldFile) then do
  39.         Rescan QWin
  40.         FileInfo FileName '°' ZWin
  41.         OldFileInfos=result
  42.         FileInfo FileName '°' QWin
  43.         NewFileInfos=result
  44.         parse value OldFileInfos with Name1 '°' Groesse1 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version1 '°' F6
  45.         parse value NewFileInfos with Name2 '°' Groesse2 '°' F1 '°' F2 '°' F3 '°' F4 '°' F5 '°' Version2 '°' F6
  46.         F1=compare(Version2,'V ',)
  47.         F2=compare(Version1,'V ',)
  48.         if (F1=3)&(F2=3) then do
  49.             parse value Version2 with F1 VerNur2 Date2
  50.             parse value Version1 with F1 VerNur1 Date1
  51.             if VerNur2<VerNur1 then CopyVar=1
  52.             if VerNur2=VerNur1 then do
  53.                 if Date2=Date1 then CopyVar=1
  54.                 else do
  55.                     Request 'neues File: ' Name2 ' ' Groesse2 ' ' Version2'0a0a'x'altes File: ' Name1 ' ' Groesse1 ' ' Version1
  56.                     if result==0 then CopyVar=1
  57.                 end
  58.             end
  59.         end
  60.         else do
  61.             Request 'neues File: ' Name2 ' ' Groesse2 ' ' Version2'0a0a'x'altes File: ' Name1 ' ' Groesse1 ' ' Version1
  62.             if result==0 then CopyVar=1
  63.         end
  64.     end
  65.     if CopyVar==0 then copy FileName ZPath
  66.     CopyVar=0
  67. end
  68. status 26 set 'Weiter'
  69. rescan ZWin
  70. busy off
  71.  
  72.